Attachment D 



/* 1 engine. c 



#include "dmcsr.h" 
# include "dmexec.h" 
#include "dmf ileio.h" 
#include <stdio.h> 
#include <maUoc.h> 
#include <string.h> 

char Fi leName[MAX_FILE_NAME_SIZE3 ; 

char Zerot9] = "no alloc"; 
char ErrTitleCS] = "Note"; 
char MessageC70] = "Error opening file"; 

MSGBOX ErrBox = 

<:msg_combo_ok:, 

&ErrTitle[0] , 

&MessageCO]>; 

/* char FileNameC30]; 
char ExtensionCA] = "DOC"; 
char TempNameC30] ; 
char FiteBufferUlO]; 

OATAFILE DataFile = 

CPERSONAL^TEXT ASCII_FILE, 
0, 
-1, 
0, 

&FileName[0] , 
&Extension[0] , 
SFileBufferlCOl, 
&FileBuffer1 [93, 
SFileBufferl C9] , 
&TempNameCO] >; 

DATAFILE *pHistoryFi le = &DataFile; 
DATAFILE *p)CBFile = &DataFile; */ 

MSGBOX *'pErrBox = SErrBox; 



/* - */ 

/* Premise is a structure containing a single premise */ 
/* of a rule. It is made up of the string itself, the */ 
/* type of fact it is, and the possible values it can */ 
/* hold. */ 
/* */ 

struct Premise 
C 

char *pFactType; 
char *pValueSet; 
char *pValue; 

>; 

/* */ 

/* Premises is a structure for maintaining a linked */ 
/* list of all the premises (strings) in a single rule */ 
/* - */ 

struct Premises 

struct Premise *pPremise; 
int Size; 

struct Premises *pNext; 

>; 




f ree(Variable); 
returnCResul t); 

> 

int FindVariable (Variable) 

/* FindVariable searches through the fact list, looking */ 
/* for the variable passed in. It will then return the */ 
/* value of the variable to the calling function. */ 
/* This function should never fail to find a match. */ 
/* If it does the Knowledge Base is flawed. */ 



char *Variable; * /* The variable to match */ 

< 

struct Query *pNextQuery; /* points to the next Query */ 

struct Assertion *pAssertionCopy; /* copy of all the facts */ 

int Error; /* error in the knowledge base */ 

int NewValue; /* value of the variable */ 



/* initialize */ 
Error = 1; 

pAssertionCopy = pAssertionList; 



/* check to see if the variable is in the fact */ 
/* list. If it is, return the value, else there */ 
/* is an error in the knowledge base. */ 

while ((pAssertionList->pNext != NULL) && (Error == 1)) 

<: 

if (strnicmpCVariable, pAssertionList->pFact, strlen(Variable)) == 0) 

sscanf ( pAssertionList- >pFact, " %*s %i", &NewValue); 

Error = 0; 

> 

else 

pAssertionList = pAssertionList->pNext; 

> 

pAssertionList = pAssertionCopy; 
if (Error ==1) 

vidjxjt_string( "Error in the knowledge base. No variable value for: %s \n». 
Variable); 

exit (0); 

> 



return(NewValue); 



> 



